home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / GPSETUP.SRC < prev    next >
Text File  |  1990-11-06  |  5KB  |  201 lines
  1. ;\|
  2. ;GPSETUP.SRC     Translated from GPSETUP.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;GPSETUP  11:08:29 AM  10/ 2/90     |
  4. ;generated by the screen editor/program generator|
  5.     define(CTR|N|2||)
  6.     define(CLIN_CTR|N|2||)
  7.     clrlne(1|25)
  8.     open(GPSETUP||0|EXIT)
  9.     trap(S|G|SAVE.REC)
  10.     trap(D|I)
  11.     trap(C|I)
  12.     trap(F|I)
  13.     trap(R|I)
  14.     trap(B|I)
  15.     trap(N|I)
  16.     trap(Q|G|SAVE.REC)
  17.     mount(GPSETUP|S||)
  18.     find(B|HEADING|START)
  19. START:
  20.     enter(HEADING||||||||)
  21.     enter(LABELS||||||||)
  22.     enter(FPC||||||||)
  23.     enter(PRADDRESS||||||||)
  24.     enter(TOWN||||||||)
  25.     enter(GPTEL||||N|N|N|||N)
  26.     enter(title1||||n|n|n|||n)
  27.     enter(title2||||n|n|n|||n)
  28.     enter(title3||||n|n|n|||n)
  29.     enter(title4||||n|n|n|||n)
  30.     enter(title5||||n|n|n|||n)
  31.     enter(RPDOCTOR[1]||||||||)
  32.     enter(RPDOCTOR[2]||||||||)
  33.     enter(RPDOCTOR[3]||||||||)
  34.     enter(RPDOCTOR[4]||||||||)
  35.     enter(RPDOCTOR[5]||||||||)
  36.     enter(RPDOCTOR[6]||||||||)
  37.     enter(RPDOCTOR[7]||||||||)
  38.     enter(CONTROL|"YN"|||Y|Y|N|||N)
  39.     gosub NEW
  40.     gosub NAME_IN
  41.     mount(GPSETUP|S)
  42. SAVE.REC:
  43.     save(GPSETUP|Y|Y|START)
  44.     dos("copy gpsetup.M gpsetup.M1")
  45.     dos("copy gpsetup.M gpsetup.M2")
  46.     dos("copy gpsetup.M gpsetup.M3")
  47.     dos("copy gpsetup.M gpsetup.M4")
  48.     dos("copy gpsetup.M gpsetup.M5")
  49. EXIT:
  50.     run("recmenu")
  51. NEW:
  52.     clrscr
  53.     clrlne(1|21)
  54.     pmsg("CLINICS"|40|21|N|N|S|)
  55.     CLIN_CTR = (1)
  56.     for(CTR|1|22|1)
  57.         {
  58.         pmsg(CLIN_CTR;"  ";CLINICS[CLIN_CTR]|1|CTR|N|N|S|)
  59.         CLIN_CTR = (CLIN_CTR+1)
  60.         }
  61.     for(CTR|1|22|1)
  62.         {
  63.         pmsg(CLIN_CTR;"  ";CLINICS[CLIN_CTR]|50|CTR|N|N|S|)
  64.         CLIN_CTR = (CLIN_CTR+1)
  65.         }
  66. ENTRY:
  67.     CLIN_CTR = (1)
  68.     for(CTR|1|22|1)
  69.         {
  70.         enter(CLINICS[CLIN_CTR]|||ENTRY|Y|N|N|5|CTR|N)
  71.         CLIN_CTR = (CLIN_CTR+1)
  72.         }
  73.     for(CTR|1|22|1)
  74.         {
  75.         enter(CLINICS[CLIN_CTR]|||ENTRY|Y|N|N|54|CTR|N)
  76.         CLIN_CTR = (CLIN_CTR+1)
  77.         }
  78.     clrscr
  79.     clrlne(1|21)
  80.     pmsg("CONSULTANTS"|40|21|N|N|S|)
  81.     CLIN_CTR = (1)
  82.     for(CTR|1|22|1)
  83.         {
  84.         pmsg(CLIN_CTR;"  ";CONSULTS[CLIN_CTR]|1|CTR|N|N|S|)
  85.         CLIN_CTR = (CLIN_CTR+1)
  86.         }
  87.     for(CTR|1|22|1)
  88.         {
  89.         pmsg(CLIN_CTR;"  ";CONSULTS[CLIN_CTR]|50|CTR|N|N|S|)
  90.         CLIN_CTR = (CLIN_CTR+1)
  91.         }
  92. ENTRY2:
  93.     CLIN_CTR = (1)
  94.     for(CTR|1|22|1)
  95.         {
  96.         enter(CONSULTS[CLIN_CTR]|||ENTRY2|Y|N|N|5|CTR|N)
  97.         CLIN_CTR = (CLIN_CTR+1)
  98.         }
  99.     for(CTR|1|22|1)
  100.         {
  101.         enter(CONSULTS[CLIN_CTR]|||ENTRY2|Y|N|N|54|CTR|N)
  102.         CLIN_CTR = (CLIN_CTR+1)
  103.         }
  104.     ret
  105. NAME_IN:
  106.     mount(NAMES|S)
  107.     enter(NAME1||||N|N|N|||N)
  108.     enter(NAME2||||N|N|N|||N)
  109.     enter(NAME3||||N|N|N|||N)
  110.     enter(NAME4||||N|N|N|||N)
  111.     enter(NAME5||||N|N|N|||N)
  112.     enter(ad1||||n|n|n|||n)
  113.     enter(ad2||||n|n|n|||n)
  114.     enter(ad3||||n|n|n|||n)
  115.     enter(ad4||||n|n|n|||n)
  116.     enter(let_title||||n|n|n|||n)
  117.     ret
  118. \STGPSETUP 
  119.                                     GPSETUP
  120.     ┌────────────────────────────────────────────────────────────────────────┐
  121.     │   Report Headings:&                                                 <  │
  122.     │   Labels         :&                                                    │
  123.     │   FPC            :&                                                    │
  124.     │  Practice Address:&                                                    │
  125.     │  Town and code   :&                               Tel:&                │
  126.     │  Title Dr1        &                                                    │
  127.     │  Title Dr2        &                                                    │
  128.     │  Title Dr3        &                                                    │
  129.     │  Title Dr4        &                                                    │
  130.     │  Title Dr5        &                                                    │
  131.     │                   Dr.of day for RP signing option.                     │
  132.     │     NOTE      Sun:&                              1 <-Dr.code for Age/sx│
  133.     │     ----      Mon:&                              2                     │
  134.     │Fill all these Tue:&                              3                     │
  135.     │   Fields ->   Wed:&                              4                     │
  136.     │               Thu:&                              5    Strict RP control│
  137.     │               Fri:&                              6     Y/N :&          │
  138.     │               Sat:&                              7                     │
  139.     └────────────────────────────────────────────────────────────────────────┘
  140.      F1 - Help      Ctrl-U  to clear fields before entry F3 will not. Esc-Exit
  141.                               PAGE 1 of 4
  142.  
  143. \
  144. HEADING
  145. LABELS
  146. FPC
  147. PRADDRESS
  148. TOWN
  149. GPTEL
  150. TITLE1
  151. TITLE2
  152. TITLE3
  153. TITLE4
  154. TITLE5
  155. RPDOCTOR[1]
  156. RPDOCTOR[2]
  157. RPDOCTOR[3]
  158. RPDOCTOR[4]
  159. RPDOCTOR[5]
  160. RPDOCTOR[6]
  161. CONTROL
  162. RPDOCTOR[7]
  163. \
  164. \STNAMES   
  165.  
  166.  
  167.  
  168.  
  169.                             ACCOUNT NAMES
  170.                          1.&
  171.                          2.&
  172.                          3.&
  173.                          4.&
  174.                          5.&
  175.  
  176.                    Address etc for recall letters
  177.  
  178.                              &
  179.                              &
  180.                              &
  181.                              &
  182.                    Letter Title
  183.  
  184.                              &
  185.  
  186.  
  187.  
  188.  
  189. \
  190. NAME1
  191. NAME2
  192. NAME3
  193. NAME4
  194. NAME5
  195. AD1
  196. AD2
  197. AD3
  198. AD4
  199. LET_TITLE
  200. \
  201.